Libris Britannia 4/science library(b).zip/science library(b)/PROGRAMM/DB_CLIPP/0264.ZIP/CHKBK.ARC/INITIAL.PRG

Text File | 1985-07-23 | 1KB | 39 lines

DO WHILE .T.
    CLEAR
    SET TALK OFF
    RESTORE FROM BOX
    STORE SPACE(70) TO ACCTNAME
    STORE SPACE(20) TO ACCTNUM
    STORE 0.00 TO BALANCE
    @5,10 SAY "You will be able to enter an account name and one"
    @6,10 SAY "account number.  You will be asked to confirm all entries."
    @7,10 SAY "The account name may be up to 70 characters long and"
    @8,10 say "the account number may be up to 20 characters. You may now"
    WAIT SPACE(10)+"press any key to begin. "
    CLEAR
    @ 10,10 SAY "Enter account name: " GET ACCTNAME
    @ 14,10 SAY "Enter account number: " GET ACCTNUM
    @ 16,10 SAY "Enter opening balance: $" GET BALANCE
    READ
    CLEAR
    @ 10,10 SAY "Account name: " + ACCTNAME
    @ 14,10 SAY "Account number: " + ACCTNUM
    @ 16,10 SAY "Opening balance: $"
    @ 16,28 SAY BALANCE
    ?
    WAIT "Are all entries correct? (Y/N) " TO ANS
    IF UPPER(ANS)="Y"
    STORE TRIM(ACCTNAME) TO ACCTNAME
    STORE TRIM(ACCTNUM) TO ACCTNUM
        RELEASE ANS
        SAVE TO DATA
        RELEASE ALL
        CLEAR
        RETURN
    ELSE
        CLEAR
        RELEASE ACCTNAME,ACCTNUM,BALANCE
        LOOP
    ENDIF
ENDDO